b-ch1.Rmd
library(propre.rpls)
#> Error in get(paste0(generic, ".", class), envir = get_method_env()) :
#> object 'type_sum.accel' not found
ggplot2::theme_set(gouvdown::theme_gouv(plot_title_size = 14, subtitle_size = 12, base_size = 10, caption_size = 10))
theme_carto <- gouvdown::theme_gouv_map(plot_title_size = 20, subtitle_size = 16, base_size = 14, caption_size = 12)
indicateurs_rpls <- lire_rpls_exemple()
indicateurs_rpls_ref <- indicateurs_rpls %>%
dplyr::filter(Zone_ref)La fonction creer_tableau_1_1() permet la création du
tableau comportant :
Mis à part l’indicateur “nombre de logts sociaux au 01/01/n”, tous
les autres indicateurs sont calculés dans cette fonction.
La mise en valeur des lignes par la coloration se fait
automatiquement.
Mettre le paramètre epci = TRUE si vous souhaitez les
données des epci dans le tableau.
Mettre le paramètre add_scroll = TRUE si vous souhaitez
ajouter un scroll à votre tableau pour plus de lisibilité.
Compléter le paramètre titre si vous souhaitez modifier
le titre par défaut. Pour insérer un saut de ligne à votre titre,
ajouter la chaîne de caractère <br> à l’endroit du
saut souhaité.
Compléter le paramètre note_de_lecture si vous souhaitez
en ajouter une avant les sources.
Pour le titre et la note de lecture attention aux accents et à l’encodage.
creer_tableau_1_1(data = indicateurs_rpls_ref, annee = 2023, epci = TRUE)[["viz"]]
#> Joining with `by = join_by(TypeZone, CodeZone, Zone)`| Zone | Nombre de logements sociaux au 01/01/2023 | Évolution 2023/2022 (en %) | Densité pour 100 résidences principales |
Part de logements en QPV (en %) |
Part des logements individuels (en %) |
Part des logements collectifs (en %) |
Part des logements étudiants (en %) |
|---|---|---|---|---|---|---|---|
| France métropolitaine | 5 141 673 | 1,0 | 17,3 | 28,7 | 15,3 | 82,1 | 2,6 |
| France de province | 3 763 013 | 0,9 | 15,4 | 27,9 | 19,8 | 78,0 | 2,2 |
| Corse | 15 837 | 1,5 | 10,1 | 31,3 | 9,2 | 87,9 | 2,9 |
| Corse-du-Sud | 6 752 | 2,1 | 9,4 | 17,5 | 7,6 | 92,4 | 0,0 |
| Haute-Corse | 9 085 | 1,1 | 10,8 | 41,6 | 10,4 | 84,5 | 5,1 |
| CA de Bastia | 5 559 | 0,8 | 20,4 | 68,0 | 2,4 | 96,4 | 1,2 |
| CA du Pays Ajaccien | 5 221 | 1,7 | 13,5 | 16,9 | 5,3 | 94,7 | 0,0 |
| Sources : SDES, RPLS au 1er janvier 2023 ; INSEE, recensement de la population 2021 |
La fonction creer_graphe_1_1() produit les courbes
d’évolution du nombre de logements sociaux en base 100 sur 6 ans (de 5
années avant l’année choisie jusqu’à l’année choisie). Pour une région
de France métropolitaine, la comparaison région/France métro/France hors
IdF est réalisée, tandis que pour les DOM, la comparaison s’effectue
avec les échelles région/ensemble DOM/France entière.
Compléter le paramètre titre si vous souhaitez modifier
le titre par défaut. Pour insérer un saut de ligne à votre titre,
ajouter la chaîne de caractère \n à l’endroit du saut
souhaité.
Compléter le paramètre note_de_lecture si vous souhaitez
en ajouter une avant les sources.
Pour le titre et la note de lecture attention aux accents et à l’encodage.
creer_graphe_1_1(data = indicateurs_rpls_ref, annee = 2023)[["viz"]]La fonction creer_carte_1_1() crée la carte d’évolution
(en %) du nombre de logements sociaux entre l’année n-1 et l’année n
pour les Epci de la région sélectionnée.
Les bornes peuvent être choisies manuellement par l’utilisateur (
bornes ) ou définies par une méthode de discrétisation (
method ). Les méthodes disponibles sont celles proposées par
cartography::getBreaks() : “sd”, “equal”, “quantile”,
“fisher-jenks”, “q6”, “geom”, “arith”, “em” or “msd”. Voir la
documentation du package
{[cartography](https://cran.r-project.org/web/packages/cartography/index.html)}pour
plus de détail.
L’argument inverse permet d’inverser la progression de la couleur (des couleurs chaudes vers froides ou inversement)
Compléter le paramètre titre si vous souhaitez modifier
le titre par défaut. Pour insérer un saut de ligne à votre titre,
ajouter la chaîne de caractère \n à l’endroit du saut
souhaité.
Compléter le paramètre note_de_lecture si vous souhaitez
en ajouter une avant les sources.
Pour le titre et la note de lecture attention aux accents et à l’encodage.
creer_carte_1_1(data = indicateurs_rpls,
carto = mapfactory::fond_carto("Corse"),
annee = 2023,
bornes = c(0.1, 10, 30),
theme = theme_carto)[["viz"]]La fonction creer_verbatim_1() produit les commentaires
automatiques du chapitre 1.
creer_verbatim_1(data = indicateurs_rpls_ref, annee = 2023)L’offre locative sociale dans la région Corse s’élève à 15 837 logements au 1er janvier 2023. Sur un an, elle augmente de 1,5 %, soit une progression légèrement plus importante qu’au niveau national (1,0 %).
Les logements sociaux ont progressé de NA % en 6 ans, gros soucis résidences principales sur la période 2015-2021 (8,5 %).
Ainsi, le parc social représente, au 1er janvier 2023, 10,1 % des résidences principales contre 17,3 % au niveau national.